(byte-optimize-divide): Don't optimize to less than two arguments.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 2443d967658bae15d63ab10552f4700f2ff763a9..4a39a71c617b219dd5b4c3dc0ccec9e838808261 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -663,7 +663,10 @@
   (setq form (byte-optimize-delay-constants-math form 2 '*))
   (let ((last (car (reverse (cdr (cdr form))))))
     (if (numberp last)
-       (cond ((= last 1)
+       (cond ((= (length form) 3)
+              ;; Don't shrink to less than two arguments--would get an error.
+              nil)
+             ((= last 1)
               (setq form (byte-compile-butlast form)))
              ((numberp (nth 1 form))
               (setq form (cons (car form)